Функция VBA INSTRREV возвращает целое число, соответствующее первой найденной позиции значения в строке символов, начиная поиск справа.
Функция InStrRev возвращает 0, если соответствие не найдено.
InStrRev(текст, значение)
Или
InStrRev(текст, значение, начальный номер, регистр)
Определим позицию значения XLP, начиная поиск справа от текста:
Sub InStrRevExample()
text = "REF: XLP-54-21-XLP-9"
'Первая позиция "XLP" в тексте при поиске справа
position = InStrRev(text, "XLP")
MsgBox position 'Возвращает: 17
End Sub